home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2000 November / Maximum CD 2000 Nov.iso / AofE-Conquerers / age2xtrial.exe / CABFILE / MSGAME.CAB / Data / gamedata_x1.drs / Unnamed File 000013.bina < prev    next >
Text File  |  2000-07-18  |  20KB  |  1,135 lines
  1. ;*********************************************************
  2. #load-if-defined AZTEC-CIV
  3.  
  4. (defrule
  5.     (goal combat-arm NOTICE)
  6. =>
  7.     (set-goal monk-rating GOOD)
  8.     (generate-random-number 14)
  9.     (set-goal castle-attempt NO)
  10. )
  11.  
  12. (defrule
  13.     (goal combat-arm NOTICE)
  14.     (random-number >= 1)
  15.     (random-number <= 3)
  16. =>
  17.     (set-goal combat-arm INFANTRY)
  18. )
  19.  
  20. (defrule
  21.     (goal combat-arm NOTICE)
  22.     (random-number >= 4)
  23.     (random-number <= 6)
  24. =>
  25.     (set-goal combat-arm EAGLEMAN)
  26. )
  27.  
  28. (defrule
  29.     (goal combat-arm NOTICE)
  30.     (random-number == 7)
  31. =>
  32.     (set-goal combat-arm ARCHER)
  33. )
  34.  
  35. (defrule
  36.     (goal combat-arm NOTICE)
  37.     (random-number >= 8)
  38. =>
  39.     (set-goal combat-arm UNIQUE)
  40.     (set-goal pre-unique-arm INFANTRY)
  41.     (set-goal castle-attempt YES)
  42. )
  43.  
  44. (defrule
  45.     (goal combat-arm UNIQUE)
  46.     (building-type-count castle == 0)
  47.     (not (goal pre-unique-arm INFANTRY) )
  48. =>
  49.     (set-goal pre-unique-arm INFANTRY)
  50. )
  51.  
  52. #end-if
  53.  
  54. ;*********************************************************
  55. #load-if-defined HUN-CIV
  56.  
  57. (defrule
  58.     (goal combat-arm NOTICE)
  59. =>
  60.     (set-goal monk-rating FAIR)
  61.     (generate-random-number 24)
  62.     (set-goal castle-attempt NO)
  63. )
  64.  
  65. (defrule
  66.     (goal combat-arm NOTICE)
  67.     (random-number == 1)
  68. =>
  69.     (set-goal combat-arm INFANTRY)
  70. )
  71.  
  72. (defrule
  73.     (goal combat-arm NOTICE)
  74.     (random-number >= 2)
  75.     (random-number <= 6)
  76. =>
  77.     (set-goal combat-arm CAVALRY)
  78. )
  79.  
  80. (defrule
  81.     (goal combat-arm NOTICE)
  82.     (random-number >= 7)
  83.     (random-number <= 8)
  84. =>
  85.     (set-goal combat-arm LIGHTCAV)
  86. )
  87.  
  88. (defrule
  89.     (goal combat-arm NOTICE)
  90.     (random-number >= 9)
  91.     (random-number <= 12)
  92. =>
  93.     (set-goal combat-arm CAVARCHER)
  94. )
  95.  
  96. (defrule
  97.     (goal combat-arm NOTICE)
  98.     (random-number >= 13)
  99. =>
  100.     (set-goal combat-arm UNIQUE)
  101.     (set-goal castle-attempt YES)
  102. )
  103.  
  104. (defrule
  105.     (goal combat-arm UNIQUE)
  106.     (current-age == feudal-age)
  107.     (not (goal pre-unique-arm INFANTRY) )
  108. =>
  109.     (set-goal pre-unique-arm INFANTRY)
  110. )
  111.  
  112. (defrule
  113.     (goal combat-arm UNIQUE)
  114.     (building-type-count castle == 0)
  115.     (current-age >= castle-age)
  116.     (not (goal pre-unique-arm CAVALRY) )
  117. =>
  118.     (set-goal pre-unique-arm CAVALRY)
  119. )
  120.  
  121. #end-if
  122. ;*********************************************************
  123. #load-if-defined KOREAN-CIV
  124.  
  125. (defrule
  126.     (goal combat-arm NOTICE)
  127. =>
  128.     (set-goal monk-rating FAIR)
  129.     (generate-random-number 24)
  130.     (set-goal castle-attempt NO)
  131. )
  132.  
  133. (defrule
  134.     (goal combat-arm NOTICE)
  135.     (random-number == 1)
  136. =>
  137.     (set-goal combat-arm INFANTRY)
  138. )
  139.  
  140. (defrule
  141.     (goal combat-arm NOTICE)
  142.     (random-number == 2)
  143. =>
  144.     (set-goal combat-arm CAVALRY)
  145. )
  146.  
  147. (defrule
  148.     (goal combat-arm NOTICE)
  149.     (random-number >= 3)
  150.     (random-number <= 4)
  151. =>
  152.     (set-goal combat-arm LIGHTCAV)
  153. )
  154.  
  155. (defrule
  156.     (goal combat-arm NOTICE)
  157.     (random-number >= 5)
  158.     (random-number <= 8)
  159. =>
  160.     (set-goal combat-arm ARCHER)
  161. )
  162.  
  163. (defrule
  164.     (goal combat-arm NOTICE)
  165.     (random-number >= 9)
  166.     (random-number <= 12)
  167. =>
  168.     (set-goal combat-arm CAVARCHER)
  169. )
  170.  
  171. (defrule
  172.     (goal combat-arm NOTICE)
  173.     (random-number >= 13)
  174. =>
  175.     (set-goal combat-arm UNIQUE)
  176.     (set-goal castle-attempt YES)
  177. )
  178.  
  179. (defrule
  180.     (goal combat-arm UNIQUE)
  181.     (current-age == feudal-age)
  182.     (not (goal pre-unique-arm ARCHER) )
  183. =>
  184.     (set-goal pre-unique-arm ARCHER)
  185. )
  186.  
  187. (defrule
  188.     (goal combat-arm UNIQUE)
  189.     (building-type-count castle == 0)
  190.     (current-age >= castle-age)
  191.     (not (goal pre-unique-arm CAVARCHER) )
  192. =>
  193.     (set-goal pre-unique-arm CAVARCHER)
  194. )
  195.  
  196. #end-if
  197. ;*********************************************************
  198. #load-if-defined MAYAN-CIV
  199.  
  200. (defrule
  201.     (goal combat-arm NOTICE)
  202. =>
  203.     (set-goal monk-rating FAIR)
  204.     (generate-random-number 16)
  205.     (set-goal castle-attempt NO)
  206. )
  207.  
  208. (defrule
  209.     (goal combat-arm NOTICE)
  210.     (random-number == 1)
  211. =>
  212.     (set-goal combat-arm INFANTRY)
  213. )
  214.  
  215. (defrule
  216.     (goal combat-arm NOTICE)
  217.     (random-number >= 2)
  218.     (random-number <= 4)
  219. =>
  220.     (set-goal combat-arm EAGLEMAN)
  221. )
  222.  
  223. (defrule
  224.     (goal combat-arm NOTICE)
  225.     (random-number >= 5)
  226.     (random-number <= 8)
  227. =>
  228.     (set-goal combat-arm ARCHER)
  229. )
  230.  
  231. (defrule
  232.     (goal combat-arm NOTICE)
  233.     (random-number >= 9)
  234. =>
  235.     (set-goal combat-arm UNIQUE)
  236.     (set-goal pre-unique-arm ARCHER)
  237.     (set-goal castle-attempt YES)
  238. )
  239.  
  240. (defrule
  241.     (goal combat-arm UNIQUE)
  242.     (building-type-count castle == 0)
  243.     (not (goal pre-unique-arm ARCHER) )
  244. =>
  245.     (set-goal pre-unique-arm ARCHER)
  246. )
  247.  
  248. #end-if
  249.  
  250. ;*********************************************************
  251. #load-if-defined SPANISH-CIV
  252.  
  253. (defrule
  254.     (goal combat-arm NOTICE)
  255. =>
  256.     (set-goal monk-rating GOOD)
  257.     (generate-random-number 24)
  258.     (set-goal castle-attempt NO)
  259. )
  260.  
  261. (defrule
  262.     (goal combat-arm NOTICE)
  263.     (random-number >= 1)
  264.     (random-number <= 3)
  265. =>
  266.     (set-goal combat-arm INFANTRY)
  267. )
  268.  
  269. (defrule
  270.     (goal combat-arm NOTICE)
  271.     (random-number >= 4)
  272.     (random-number <= 6)
  273. =>
  274.     (set-goal combat-arm CAVALRY)
  275. )
  276.  
  277. (defrule
  278.     (goal combat-arm NOTICE)
  279.     (random-number == 7)
  280. =>
  281.     (set-goal combat-arm LIGHTCAV)
  282. )
  283.  
  284. (defrule
  285.     (goal combat-arm NOTICE)
  286.     (random-number >= 8)
  287.     (random-number <= 12)
  288. =>
  289.     (set-goal combat-arm CAVARCHER)
  290. )
  291.  
  292. (defrule
  293.     (goal combat-arm NOTICE)
  294.     (random-number >= 13)
  295. =>
  296.     (set-goal combat-arm UNIQUE)
  297.     (set-goal castle-attempt YES)
  298. )
  299.  
  300. (defrule
  301.     (goal combat-arm UNIQUE)
  302.     (current-age == feudal-age)
  303.     (not (goal pre-unique-arm ARCHER) )
  304. =>
  305.     (set-goal pre-unique-arm ARCHER)
  306. )
  307.  
  308. (defrule
  309.     (goal combat-arm UNIQUE)
  310.     (building-type-count castle == 0)
  311.     (current-age >= castle-age)
  312.     (not (goal pre-unique-arm CAVARCHER) )
  313. =>
  314.     (set-goal pre-unique-arm CAVARCHER)
  315. )
  316.  
  317. #end-if
  318.  
  319. ;*********************************************************
  320. #load-if-defined BRITON-CIV
  321.  
  322. (defrule
  323.     (goal combat-arm NOTICE)
  324. =>
  325.     (set-goal monk-rating GOOD)
  326.     (generate-random-number 24)
  327.     (set-goal castle-attempt NO)
  328. )
  329.  
  330. (defrule
  331.     (goal combat-arm NOTICE)
  332.     (random-number >= 1)
  333.     (random-number <= 3)
  334. =>
  335.     (set-goal combat-arm INFANTRY)
  336. )
  337.  
  338. (defrule
  339.     (goal combat-arm NOTICE)
  340.     (random-number == 4)
  341. =>
  342.     (set-goal combat-arm LIGHTCAV)
  343. )
  344.  
  345. (defrule
  346.     (goal combat-arm NOTICE)
  347.     (random-number >= 5)
  348.     (random-number <= 7)
  349. =>
  350.     (set-goal combat-arm CAVARCHER)
  351. )
  352.  
  353. (defrule
  354.     (goal combat-arm NOTICE)
  355.     (random-number >= 8)
  356.     (random-number <= 12)
  357. =>
  358.     (set-goal combat-arm ARCHER)
  359. )
  360.  
  361. (defrule
  362.     (goal combat-arm NOTICE)
  363.     (random-number >= 13)
  364. =>
  365.     (set-goal combat-arm UNIQUE)
  366.     (set-goal pre-unique-arm ARCHER)
  367.     (set-goal castle-attempt YES)
  368. )
  369.  
  370. (defrule
  371.     (goal combat-arm UNIQUE)
  372.     (building-type-count castle == 0)
  373.     (not (goal pre-unique-arm ARCHER) )
  374. =>
  375.     (set-goal pre-unique-arm ARCHER)
  376. )
  377.  
  378. #end-if
  379.  
  380. ;*********************************************************
  381. #load-if-defined BYZANTINE-CIV
  382.  
  383. (defrule
  384.     (goal combat-arm NOTICE)
  385. =>
  386.     (set-goal monk-rating GOOD)
  387.     (set-goal castle-attempt NO)
  388.     (generate-random-number 22)
  389. )
  390.  
  391. (defrule
  392.     (goal combat-arm NOTICE)
  393.     (random-number >= 1)
  394.     (random-number <= 3)
  395. =>
  396.     (set-goal combat-arm INFANTRY)
  397. )
  398.  
  399. (defrule
  400.     (goal combat-arm NOTICE)
  401.     (random-number == 4)
  402. =>
  403.     (set-goal combat-arm CAVALRY)
  404. )
  405.  
  406. (defrule
  407.     (goal combat-arm NOTICE)
  408.     (random-number == 5)
  409. =>
  410.     (set-goal combat-arm LIGHTCAV)
  411. )
  412.  
  413. (defrule
  414.     (goal combat-arm NOTICE)
  415.     (random-number >= 6)
  416.     (random-number <= 8)
  417. =>
  418.     (set-goal combat-arm CAVARCHER)
  419. )
  420.  
  421. (defrule
  422.     (goal combat-arm NOTICE)
  423.     (random-number >= 9)
  424.     (random-number <= 11)
  425. =>
  426.     (set-goal combat-arm ARCHER)
  427. )
  428.  
  429. (defrule
  430.     (goal combat-arm NOTICE)
  431.     (random-number >= 12)
  432. =>
  433.     (set-goal combat-arm UNIQUE)
  434.     (set-goal pre-unique-arm CAVALRY)
  435.     (set-goal castle-attempt YES)
  436. )
  437.  
  438. (defrule
  439.     (goal combat-arm UNIQUE)
  440.     (current-age == feudal-age)
  441.     (not (goal pre-unique-arm INFANTRY) )
  442. =>
  443.     (set-goal pre-unique-arm INFANTRY)
  444. )
  445.  
  446. (defrule
  447.     (goal combat-arm UNIQUE)
  448.     (building-type-count castle == 0)
  449.     (current-age >= castle-age)
  450.     (not (goal pre-unique-arm CAVALRY) )
  451. =>
  452.     (set-goal pre-unique-arm CAVALRY)
  453. )
  454.  
  455. #end-if
  456.  
  457. ;*********************************************************
  458. #load-if-defined CELTIC-CIV
  459.  
  460. (defrule
  461.     (goal combat-arm NOTICE)
  462. =>
  463.     (set-goal monk-rating POOR)
  464.     (set-goal castle-attempt NO)
  465.     (generate-random-number 24)
  466. )
  467.  
  468. (defrule
  469.     (goal combat-arm NOTICE)
  470.     (random-number >= 1)
  471.     (random-number <= 5)
  472. =>
  473.     (set-goal combat-arm INFANTRY)
  474. )
  475.  
  476. (defrule
  477.     (goal combat-arm NOTICE)
  478.     (random-number >= 6)
  479.     (random-number <= 8)
  480. =>
  481.     (set-goal combat-arm CAVALRY)
  482. )
  483.  
  484. (defrule
  485.     (goal combat-arm NOTICE)
  486.     (random-number == 9)
  487. =>
  488.     (set-goal combat-arm LIGHTCAV)
  489. )
  490.  
  491. (defrule
  492.     (goal combat-arm NOTICE)
  493.     (random-number >= 10)
  494.     (random-number <= 12)
  495. =>
  496.     (set-goal combat-arm CAVARCHER)
  497. )
  498.  
  499. (defrule
  500.     (goal combat-arm NOTICE)
  501.     (random-number >= 13)
  502. =>
  503.     (set-goal combat-arm UNIQUE)
  504.     (set-goal pre-unique-arm INFANTRY)
  505.     (set-goal castle-attempt YES)
  506. )
  507.  
  508. (defrule
  509.     (goal combat-arm UNIQUE)
  510.     (building-type-count castle == 0)
  511.     (not (goal pre-unique-arm INFANTRY) )
  512. =>
  513.     (set-goal pre-unique-arm INFANTRY)
  514. )
  515.  
  516. #end-if
  517.  
  518. ;*********************************************************
  519. #load-if-defined CHINESE-CIV
  520.  
  521. (defrule
  522.     (goal combat-arm NOTICE)
  523. =>
  524.     (set-goal monk-rating FAIR)
  525.     (set-goal castle-attempt NO)
  526.     (generate-random-number 16)
  527. )
  528.  
  529. (defrule
  530.     (goal combat-arm NOTICE)
  531.     (random-number >= 1)
  532.     (random-number <= 3)
  533. =>
  534.     (set-goal combat-arm INFANTRY)
  535. )
  536.  
  537. (defrule
  538.     (goal combat-arm NOTICE)
  539.     (random-number == 4)
  540. =>
  541.     (set-goal combat-arm LIGHTCAV)
  542. )
  543.  
  544. (defrule
  545.     (goal combat-arm NOTICE)
  546.     (random-number >= 5)
  547.     (random-number <= 7)
  548. =>
  549.     (set-goal combat-arm CAVARCHER)
  550. )
  551.  
  552. (defrule
  553.     (goal combat-arm NOTICE)
  554.     (random-number == 8)
  555. =>
  556.     (set-goal combat-arm ARCHER)
  557. )
  558.  
  559. (defrule
  560.     (goal combat-arm NOTICE)
  561.     (random-number >= 9)
  562. =>
  563.     (set-goal combat-arm UNIQUE)
  564.     (set-goal pre-unique-arm ARCHER)
  565.     (set-goal castle-attempt YES)
  566. )
  567.  
  568. (defrule
  569.     (goal combat-arm UNIQUE)
  570.     (building-type-count castle == 0)
  571.     (not (goal pre-unique-arm ARCHER) )
  572. =>
  573.     (set-goal pre-unique-arm ARCHER)
  574. )
  575.  
  576. #end-if
  577.  
  578. ;*********************************************************
  579. #load-if-defined FRANKISH-CIV
  580.  
  581. (defrule
  582.     (goal combat-arm NOTICE)
  583. =>
  584.     (set-goal monk-rating FAIR)
  585.     (set-goal castle-attempt NO)
  586.     (generate-random-number 22)
  587. )
  588.  
  589. (defrule
  590.     (goal combat-arm NOTICE)
  591.     (random-number == 1)
  592. =>
  593.     (set-goal combat-arm INFANTRY)
  594. )
  595.  
  596. (defrule
  597.     (goal combat-arm NOTICE)
  598.     (random-number >= 2)
  599.     (random-number <= 7)
  600. =>
  601.     (set-goal combat-arm CAVALRY)
  602. )
  603.  
  604. (defrule
  605.     (goal combat-arm NOTICE)
  606.     (random-number == 8)
  607. =>
  608.     (set-goal combat-arm LIGHTCAV)
  609. )
  610.  
  611. (defrule
  612.     (goal combat-arm NOTICE)
  613.     (random-number >= 9)
  614.     (random-number <= 11)
  615. =>
  616.     (set-goal combat-arm CAVARCHER)
  617. )
  618.  
  619. (defrule
  620.     (goal combat-arm NOTICE)
  621.     (random-number >= 12)
  622. =>
  623.     (set-goal combat-arm UNIQUE)
  624.     (set-goal pre-unique-arm INFANTRY)
  625.     (set-goal castle-attempt YES)
  626. )
  627.  
  628. (defrule
  629.     (goal combat-arm UNIQUE)
  630.     (building-type-count castle == 0)
  631.     (not (goal pre-unique-arm INFANTRY) )
  632. =>
  633.     (set-goal pre-unique-arm INFANTRY)
  634. )
  635.  
  636. #end-if
  637.  
  638. ;*********************************************************
  639. #load-if-defined GOTHIC-CIV
  640.  
  641. (defrule
  642.     (goal combat-arm NOTICE)
  643. =>
  644.     (set-goal monk-rating POOR)
  645.     (set-goal castle-attempt NO)
  646.     (generate-random-number 18)
  647. )
  648.  
  649. (defrule
  650.     (goal combat-arm NOTICE)
  651.     (random-number >= 1)
  652.     (random-number <= 5)
  653. =>
  654.     (set-goal combat-arm INFANTRY)
  655. )
  656.  
  657. (defrule
  658.     (goal combat-arm NOTICE)
  659.     (random-number == 6)
  660. =>
  661.     (set-goal combat-arm LIGHTCAV)
  662. )
  663.  
  664. (defrule
  665.     (goal combat-arm NOTICE)
  666.     (random-number >= 7)
  667.     (random-number <= 9)
  668. =>
  669.     (set-goal combat-arm CAVARCHER)
  670. )
  671.  
  672. (defrule
  673.     (goal combat-arm NOTICE)
  674.     (random-number >= 10)
  675. =>
  676.     (set-goal combat-arm UNIQUE)
  677.     (set-goal pre-unique-arm INFANTRY)
  678.     (set-goal castle-attempt YES)
  679. )
  680.  
  681. (defrule
  682.     (goal combat-arm UNIQUE)
  683.     (building-type-count castle == 0)
  684.     (not (research-completed my-unique-research) )
  685.     (not (goal pre-unique-arm INFANTRY) )
  686. =>
  687.     (set-goal pre-unique-arm INFANTRY)
  688. )
  689.  
  690. (defrule
  691.     (goal wall-build YES)
  692. =>
  693.     (set-goal wall-build NO)
  694. )
  695.  
  696.  
  697. #end-if
  698.  
  699. ;*********************************************************
  700. #load-if-defined JAPANESE-CIV
  701.  
  702. (defrule
  703.     (goal combat-arm NOTICE)
  704. =>
  705.     (set-goal monk-rating GOOD)
  706.     (set-goal castle-attempt NO)
  707.     (generate-random-number 24)
  708. )
  709.  
  710. (defrule
  711.     (goal combat-arm NOTICE)
  712.     (random-number >= 1)
  713.     (random-number <= 5)
  714. =>
  715.     (set-goal combat-arm INFANTRY)
  716. )
  717.  
  718. (defrule
  719.     (goal combat-arm NOTICE)
  720.     (random-number == 6)
  721. =>
  722.     (set-goal combat-arm LIGHTCAV)
  723. )
  724.  
  725. (defrule
  726.     (goal combat-arm NOTICE)
  727.     (random-number >= 7)
  728.     (random-number <= 9)
  729. =>
  730.     (set-goal combat-arm CAVARCHER)
  731. )
  732.  
  733. (defrule
  734.     (goal combat-arm NOTICE)
  735.     (random-number >= 10)
  736.     (random-number <= 12)
  737. =>
  738.     (set-goal combat-arm ARCHER)
  739. )
  740.  
  741. (defrule
  742.     (goal combat-arm NOTICE)
  743.     (random-number >= 13)
  744. =>
  745.     (set-goal combat-arm UNIQUE)
  746.     (set-goal pre-unique-arm INFANTRY)
  747.     (set-goal castle-attempt YES)
  748. )
  749.  
  750. (defrule
  751.     (goal combat-arm UNIQUE)
  752.     (building-type-count castle == 0)
  753.     (not (goal pre-unique-arm INFANTRY) )
  754. =>
  755.     (set-goal pre-unique-arm INFANTRY)
  756. )
  757.  
  758. #end-if
  759.  
  760. ;*********************************************************
  761. #load-if-defined MONGOL-CIV
  762.  
  763. (defrule
  764.     (goal combat-arm NOTICE)
  765. =>
  766.     (set-goal monk-rating POOR)
  767.     (set-goal castle-attempt NO)
  768.     (generate-random-number 32)
  769. )
  770.  
  771. (defrule
  772.     (goal combat-arm NOTICE)
  773.     (random-number >= 1)
  774.     (random-number <= 3)
  775. =>
  776.     (set-goal combat-arm INFANTRY)
  777. )
  778.  
  779. (defrule
  780.     (goal combat-arm NOTICE)
  781.     (random-number >= 4)
  782.     (random-number <= 8)
  783. =>
  784.     (set-goal combat-arm LIGHTCAV)
  785. )
  786.  
  787. (defrule
  788.     (goal combat-arm NOTICE)
  789.     (random-number >= 9)
  790.     (random-number <= 13)
  791. =>
  792.     (set-goal combat-arm CAVARCHER)
  793. )
  794.  
  795. (defrule
  796.     (goal combat-arm NOTICE)
  797.     (random-number >= 14)
  798.     (random-number <= 16)
  799. =>
  800.     (set-goal combat-arm ARCHER)
  801. )
  802.  
  803. (defrule
  804.     (goal combat-arm NOTICE)
  805.     (random-number >= 17)
  806. =>
  807.     (set-goal combat-arm UNIQUE)
  808.     (set-goal castle-attempt YES)
  809. )
  810.  
  811. (defrule
  812.     (goal combat-arm UNIQUE)
  813.     (current-age == feudal-age)
  814.     (not (goal pre-unique-arm ARCHER) )
  815. =>
  816.     (set-goal pre-unique-arm ARCHER)
  817. )
  818.  
  819. (defrule
  820.     (goal combat-arm UNIQUE)
  821.     (current-age >= castle-age)
  822.     (building-type-count castle == 0)
  823.     (not (goal pre-unique-arm CAVARCHER) )
  824. =>
  825.     (set-goal pre-unique-arm CAVARCHER)
  826. )
  827. #end-if
  828.  
  829. ;*********************************************************
  830. #load-if-defined PERSIAN-CIV
  831.  
  832. (defrule
  833.     (goal combat-arm NOTICE)
  834. =>
  835.     (set-goal monk-rating POOR)
  836.     (set-goal castle-attempt NO)
  837.     (generate-random-number 10)
  838. )
  839.  
  840. (defrule
  841.     (goal combat-arm NOTICE)
  842.     (random-number == 1)
  843. =>
  844.     (set-goal combat-arm CAVALRY)
  845. )
  846.  
  847. (defrule
  848.     (goal combat-arm NOTICE)
  849.     (random-number == 2)
  850. =>
  851.     (set-goal combat-arm LIGHTCAV)
  852. )
  853.  
  854. (defrule
  855.     (goal combat-arm NOTICE)
  856.     (random-number >= 3)
  857.     (random-number <= 5)
  858. =>
  859.     (set-goal combat-arm CAVARCHER)
  860. )
  861.  
  862. (defrule
  863.     (goal combat-arm NOTICE)
  864.     (random-number >= 6)
  865. =>
  866.     (set-goal combat-arm UNIQUE)
  867.     (set-goal castle-attempt YES)
  868. )
  869.  
  870. (defrule
  871.     (goal combat-arm UNIQUE)
  872.     (current-age == feudal-age)
  873.     (not (goal pre-unique-arm INFANTRY) )
  874. =>
  875.     (set-goal pre-unique-arm INFANTRY)
  876. )
  877.  
  878. (defrule
  879.     (goal combat-arm UNIQUE)
  880.     (building-type-count castle == 0)
  881.     (current-age >= castle-age)
  882.     (not (goal pre-unique-arm CAVALRY) )
  883. =>
  884.     (set-goal pre-unique-arm CAVALRY)
  885. )
  886. #end-if
  887.  
  888. ;*********************************************************
  889. #load-if-defined SARACEN-CIV
  890.  
  891. (defrule
  892.     (goal combat-arm NOTICE)
  893. =>
  894.     (set-goal monk-rating GOOD)
  895.     (set-goal castle-attempt NO)
  896.     (generate-random-number 22)
  897. )
  898.  
  899. (defrule
  900.     (goal combat-arm NOTICE)
  901.     (random-number >= 1)
  902.     (random-number <= 3)
  903. =>
  904.     (set-goal combat-arm INFANTRY)
  905. )
  906.  
  907. (defrule
  908.     (goal combat-arm NOTICE)
  909.     (random-number == 4)
  910. =>
  911.     (set-goal combat-arm LIGHTCAV)
  912. )
  913.  
  914. (defrule
  915.     (goal combat-arm NOTICE)
  916.     (random-number >= 5)
  917.     (random-number <= 11)
  918. =>
  919.     (set-goal combat-arm CAVARCHER)
  920. )
  921.  
  922. (defrule
  923.     (goal combat-arm NOTICE)
  924.     (random-number >= 12)
  925. =>
  926.     (set-goal combat-arm UNIQUE)
  927.     (set-goal pre-unique-arm CAVALRY)
  928.     (set-goal castle-attempt YES)
  929. )
  930.  
  931. (defrule
  932.     (goal combat-arm UNIQUE)
  933.     (current-age == feudal-age)
  934.     (not (goal pre-unique-arm INFANTRY) )
  935. =>
  936.     (set-goal pre-unique-arm INFANTRY)
  937. )
  938.  
  939. (defrule
  940.     (goal combat-arm UNIQUE)
  941.     (building-type-count castle == 0)
  942.     (current-age >= castle-age)
  943.     (not (goal pre-unique-arm CAVALRY) )
  944. =>
  945.     (set-goal pre-unique-arm CAVALRY)
  946. )
  947. #end-if
  948.  
  949. ;*********************************************************
  950. #load-if-defined TEUTONIC-CIV
  951.  
  952. (defrule
  953.     (goal combat-arm NOTICE)
  954. =>
  955.     (set-goal monk-rating GOOD)
  956.     (set-goal castle-attempt NO)
  957.     (generate-random-number 8)
  958. )
  959.  
  960. (defrule
  961.     (goal combat-arm NOTICE)
  962.     (random-number == 1)
  963. =>
  964.     (set-goal combat-arm INFANTRY)
  965. )
  966.  
  967. (defrule
  968.     (goal combat-arm NOTICE)
  969.     (random-number >= 2)
  970.     (random-number <= 4)
  971. =>
  972.     (set-goal combat-arm CAVALRY)
  973. )
  974.  
  975. (defrule
  976.     (goal combat-arm NOTICE)
  977.     (random-number >= 5)
  978. =>
  979.     (set-goal combat-arm UNIQUE)
  980.     (set-goal pre-unique-arm INFANTRY)
  981.     (set-goal castle-attempt YES)
  982. )
  983.  
  984. (defrule
  985.     (goal combat-arm UNIQUE)
  986.     (building-type-count castle == 0)
  987.     (not (goal pre-unique-arm INFANTRY) )
  988. =>
  989.     (set-goal pre-unique-arm INFANTRY)
  990. )
  991.  
  992. #end-if
  993.  
  994. ;*********************************************************
  995. #load-if-defined TURKISH-CIV
  996.  
  997. (defrule
  998.     (goal combat-arm NOTICE)
  999. =>
  1000.     (set-goal monk-rating FAIR)
  1001.     (set-goal castle-attempt NO)
  1002.     (generate-random-number 28)
  1003. )
  1004.  
  1005. (defrule
  1006.     (goal combat-arm NOTICE)
  1007.     (random-number >= 1)
  1008.     (random-number <= 3)
  1009. =>
  1010.     (set-goal combat-arm INFANTRY)
  1011. )
  1012.  
  1013. (defrule
  1014.     (goal combat-arm NOTICE)
  1015.     (random-number >= 4)
  1016.     (random-number <= 8)
  1017. =>
  1018.     (set-goal combat-arm LIGHTCAV)
  1019. )
  1020.  
  1021. (defrule
  1022.     (goal combat-arm NOTICE)
  1023.     (random-number >= 9)
  1024.     (random-number <= 11)
  1025. =>
  1026.     (set-goal combat-arm CAVARCHER)
  1027. )
  1028.  
  1029. (defrule
  1030.     (goal combat-arm NOTICE)
  1031.     (random-number >= 12)
  1032.     (random-number <= 14)
  1033. =>
  1034.     (set-goal combat-arm ARCHER)
  1035. )
  1036.  
  1037. (defrule
  1038.     (goal combat-arm NOTICE)
  1039.     (random-number >= 15)
  1040. =>
  1041.     (set-goal combat-arm UNIQUE)
  1042.     (set-goal pre-unique-arm ARCHER)
  1043.     (set-goal castle-attempt YES)
  1044. )
  1045.  
  1046. (defrule
  1047.     (goal combat-arm UNIQUE)
  1048.     (building-type-count castle == 0)
  1049.     (not (goal pre-unique-arm ARCHER) )
  1050. =>
  1051.     (set-goal pre-unique-arm ARCHER)
  1052. )
  1053.  
  1054. #end-if
  1055.  
  1056. ;*********************************************************
  1057. #load-if-defined VIKING-CIV
  1058.  
  1059. (defrule
  1060.     (goal combat-arm NOTICE)
  1061. =>
  1062.     (set-goal monk-rating POOR)
  1063.     (set-goal castle-attempt NO)
  1064.     (generate-random-number 18)
  1065. )
  1066.  
  1067. (defrule
  1068.     (goal combat-arm NOTICE)
  1069.     (random-number >= 1)
  1070.     (random-number <= 5)
  1071. =>
  1072.     (set-goal combat-arm INFANTRY)
  1073. )
  1074.  
  1075. (defrule
  1076.     (goal combat-arm NOTICE)
  1077.     (random-number == 6)
  1078. =>
  1079.     (set-goal combat-arm LIGHTCAV)
  1080. )
  1081.  
  1082. (defrule
  1083.     (goal combat-arm NOTICE)
  1084.     (random-number >= 7)
  1085.     (random-number <= 9)
  1086. =>
  1087.     (set-goal combat-arm ARCHER)
  1088. )
  1089.  
  1090. (defrule
  1091.     (goal combat-arm NOTICE)
  1092.     (random-number >= 10)
  1093. =>
  1094.     (set-goal combat-arm UNIQUE)
  1095.     (set-goal pre-unique-arm INFANTRY)
  1096.     (set-goal castle-attempt YES)
  1097. )
  1098.  
  1099. (defrule
  1100.     (goal combat-arm UNIQUE)
  1101.     (building-type-count castle == 0)
  1102.     (not (goal pre-unique-arm INFANTRY) )
  1103. =>
  1104.     (set-goal pre-unique-arm INFANTRY)
  1105. )
  1106.  
  1107. (defrule
  1108.     (goal castle-attempt NO)
  1109.     (or
  1110.         (goal sea-owner YES)
  1111.         (nor
  1112.             (player-in-game any-computer-ally)
  1113.             (or
  1114.                 (player-in-game any-human-ally)
  1115.                 (goal 1 0)
  1116.             )
  1117.         )
  1118.     )
  1119. =>
  1120.     (set-goal castle-attempt YES)
  1121. )
  1122.  
  1123. #end-if
  1124.  
  1125. (defrule
  1126.     (goal combat-arm UNIQUE)
  1127.     (current-age >= castle-age)
  1128.     (building-type-count castle > 0)
  1129.     (not (goal pre-unique-arm NO) )
  1130. =>
  1131.     (set-goal pre-unique-arm NO)
  1132. )
  1133.  
  1134.  
  1135.